#!/home/y/bin/perl

use FindBin qw/$Bin/;
use lib qw(lib ../lib);

use Test::More qw/no_plan/;

use_ok("Farsail::Database");

my $dbconf = Farsail::Database->new(
    { dbd=>'Pg', host=>'localhost', 'dbname'=>'yewenb' }
);

is($dbconf->dbd, 'Pg');
is($dbconf->host, 'localhost');
is($dbconf->dbname, 'yewenb');
is($dbconf->dns, 'dbi:Pg:dbname=yewenb;host=localhost');

